Show the code
knitr::include_graphics("images/chuquicamata_cu_mine.jpg")Using data compiled by Geoscience Australia, the Geological Survey of Canada and the United States Geological Survey
This report brings a summary of the South America & North America deposits of Copper (Cu), Gold (Au), Molybdenium (Mo), and Silver (Ag) contained in the Critical Minerals Mapping Initiative (CMMI) database CMMI is a collection of geochemical analysis of 7,000 samples from mineral deposits in 60 countries.
This report is for education and science communication only. You are free to share, copy and redistribute the material in any medium or format. You may not use the material for commercial purposes.
The full dataset as well as its information, authors and metadata can be accessed here.
knitr::include_graphics("images/chuquicamata_cu_mine.jpg")Fonte: Unplash.com
Geoscience Australia, the Geological Survey of Canada, and the US Geological Survey compiled CMMI from publicly available sources, including mineral deposit, geochemistry, and the OSNACA databases.
── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
✔ ggplot2 3.4.0 ✔ purrr 1.0.0
✔ tibble 3.1.8 ✔ dplyr 1.0.10
✔ tidyr 1.2.1 ✔ stringr 1.5.0
✔ readr 2.1.3 ✔ forcats 0.5.2
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
here() starts at C:/Users/Bruno Ferreira/Documents/Analise_em_R/relatorio_geoquimica
Rows: 9513 Columns: 340
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (135): FID, DEPOSIT_UID, DEPOSIT_NAME, DEPOSIT_LOCAL_ID, DEPOSIT_ENVIRO...
dbl (198): TOP_DEPTH_M, BASE_DEPTH_M, SIO2_WT_PERCENT, SIO2_DETECTION_LIMIT...
lgl (5): H2OTOTAL_WT_PERCENT, H2OTOTAL_DETECTION_LIMIT, H2OTOTAL_METHOD, ...
date (2): ANALYSIS_DATETIME, LAST_UPDATE
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
The original dataset is divided into 340 columns showing Sample ID, Analytes, Limit of Detections, Countries, Coordinates, among other information, and 9513 rows.
For this analysis, we have four target elements: Copper (Cu), Gold (Au), Molybdenium (Mo), and Silver (Ag), exploring their distribution along the countries’ deposits.
So we need to filter the dataset prior to leave only the necessary information.
copper <- tibble(cmmi_dataset$primary_commodities)
cmmi_americas <- cmmi_dataset |>
dplyr::filter(country %in% c("MEX", "USA", "CAN", "BRA", "ARG", "CHL", "BOL", "PER", "URY", "ECU", "VEN", "COL")) |>
dplyr::select(sample_name, primary_commodities, deposit_name, deposit_environment, country,
state, cu_ppm, cu_detection_limit, cu_method,
deposit_longitude_wgs84,deposit_latitude_wgs84)|>
drop_na(cu_ppm)|>
dplyr::filter(cu_ppm >= 50) |>
mutate(country = countrycode(country, "iso3c", "country.name"))You may locate all the 713 deposits in the map below: